-- card: 4141 from stack: in.0(ÉxÅ[É^î≈) -- bmap block id: 4545 -- flags: 0000 -- background id: 3816 -- name: MackunSet ----- HyperTalk script ----- on openCard put xSetSoundVol(card field "MVol2") into dummy end openCard -- part 2 (field) -- low flags: 00 -- high flags: 0001 -- rect: left=19 top=35 right=51 bottom=126 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 16384 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 4 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=177 top=102 right=167 bottom=372 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 16384 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: levelF -- part 5 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=193 top=101 right=122 bottom=221 -- title width / last selected line: 0 -- icon id / first selected line: 13409 / 13409 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: pitchB ----- HyperTalk script ----- on mouseDown global Mpitch set the cursor to -15615 get the rect of card field "LevelF" put item 1 of it into Xmin put item 3 of it into Xmax set the hilite of the target to true moveLevel put the loc of the target into data1 -- åvéZ get the loc of the target put ((item 1 of it)-Xmin) into data1 put round((data1*(500-65) /(Xmax-Xmin))+65) into data1 if data1 is 116 then put 117 into data1 end if put data1 into card field "Mpitch" put data1 into Mpitch set the hilite of the target to false end mouseDown -- part 7 (field) -- low flags: 01 -- high flags: 0001 -- rect: left=97 top=146 right=162 bottom=152 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 16384 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Mrate -- part 8 (field) -- low flags: 01 -- high flags: 0001 -- rect: left=96 top=104 right=120 bottom=150 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 16384 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Mpitch -- part 10 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=192 top=145 right=166 bottom=220 -- title width / last selected line: 0 -- icon id / first selected line: 13409 / 13409 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: rateB ----- HyperTalk script ----- on mouseDown global Mrate set the cursor to -15615 get the rect of card field "LevelF" put item 1 of it into Xmin put item 3 of it into Xmax set the hilite of the target to true moveLevel put the loc of the target into data1 -- åvéZ get the loc of the target put ((item 1 of it)-Xmin) into data1 put round((data1*(425-85) /(Xmax-Xmin))+85) into data1 if data1 is 113 then put 115 into data1 end if put data1 into card field "Mrate" put data1 into Mrate set the hilite of the target to false end mouseDown -- part 11 (button) -- low flags: 00 -- high flags: 2002 -- rect: left=198 top=82 right=97 bottom=214 -- title width / last selected line: 0 -- icon id / first selected line: 3584 / 3584 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: VK{^ ----- HyperTalk script ----- on mouseUp global Mpitch set the loc of button "pitchB" to 207,111 put 130 into card field "Mpitch" put 130 into Mpitch end mouseUp -- part 12 (button) -- low flags: 00 -- high flags: 2002 -- rect: left=199 top=169 right=184 bottom=215 -- title width / last selected line: 0 -- icon id / first selected line: 16692 / 16692 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: VK{^ ----- HyperTalk script ----- on mouseUp global Mrate set the loc of button "rateB" to 206,155 put 136 into card field "Mrate" put 136 into Mrate end mouseUp -- part 13 (button) -- low flags: 00 -- high flags: 8001 -- rect: left=107 top=66 right=84 bottom=168 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Robotic ----- HyperTalk script ----- on mouseUp global Mrobot set the hilite of the target to true set the hilite of button "Normal" to false put 0 into card field "Mrobot" put 0 into Mrobot end mouseUp -- part 14 (button) -- low flags: 00 -- high flags: C001 -- rect: left=34 top=66 right=84 bottom=95 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Normal ----- HyperTalk script ----- on mouseUp global Mrobot set the hilite of the target to true set the hilite of button "Robotic" to false put 1 into card field "Mrobot" put 1 into Mrobot end mouseUp -- part 15 (button) -- low flags: 00 -- high flags: 2001 -- rect: left=465 top=306 right=332 bottom=496 -- title width / last selected line: 0 -- icon id / first selected line: 6720 / 6720 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ǂ ----- HyperTalk script ----- on mouseUp visual effect barn door close go back end mouseUp -- part 17 (field) -- low flags: 80 -- high flags: 0000 -- rect: left=219 top=62 right=80 bottom=285 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 16384 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Mrobot -- part 18 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=25 top=192 right=228 bottom=57 -- title width / last selected line: 0 -- icon id / first selected line: 20008 / 20008 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: }bN ----- HyperTalk script ----- on mouseUp global Mrate,Mpitch,Mrobot set the cursor to 4 get card field "ǃÇ∑Ç∆" MackunSpeech it,Mrate,Mpitch,Mrobot end mouseUp -- part 19 (field) -- low flags: 00 -- high flags: 0001 -- rect: left=27 top=234 right=310 bottom=413 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 16384 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Ă -- part 20 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=61 top=191 right=232 bottom=128 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: }bN ----- HyperTalk script ----- on mouseUp global Mrate,Mpitch,Mrobot set the cursor to 4 get card field "ǃÇ∑Ç∆" if it is not empty then put the number of lines in it into flen repeat with n=1 to flen put kanToRom(line n of it) into romdata if romdata is empty then answer "Hyper CardÇ∆kanji.datÇ™ìØÇ∂ÉtÉHÉãÉ_ì‡Ç…ì¸Ç¡ÇƒÇ¢Ç‹Ç∑Ç©ÅH" else put MackunR(kanToRom(line n of it),Mrate,Mpitch,Mrobot) into dummy if (dummy is not empty) then answer "MacinTalkÇ™ÉVÉXÉeÉÄÉtÉHÉãÉ_Å[Ç…ì¸Ç¡ÇƒÇ¢Ç‹Ç∑Ç©?" end if end if end repeat end if end mouseUp -- part 22 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=425 top=69 right=173 bottom=477 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 16384 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: levelF2 -- part 23 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=436 top=151 right=166 bottom=462 -- title width / last selected line: 0 -- icon id / first selected line: 14306 / 14306 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SoundVol ----- HyperTalk script ----- on mouseDown global MVol set the cursor to -15615 get the rect of card field "LevelF2" put item 2 of it into Ymin put item 4 of it into Ymax set the hilite of the target to true moveLevel2 put the loc of the target into data1 -- åvéZ get the loc of the target put item 1 of it into X put ((item 2 of it)-Ymin) into data1 put round((data1*(8-1) /(Ymax-Ymin))+1) into data1 put round((data1-1)*((Ymax-Ymin)/7)+Ymin) into Y put 8-data1 into data1 put data1 into card field "MVol2" put data1 into MVol set the loc of the target to X,Y put xSetSoundVol(MVol) into Dummy beep 1 set the hilite of the target to false end mouseDown on moveLevel2 get the loc of target put item 1 of it into X1 put item 2 of it into Y1 get the rect of card field "LevelF2" put item 2 of it into Ymin put item 4 of it into Ymax repeat while true if the mouse is up then exit moveLevel2 else get the mouseLoc put item 1 of it into X2 put item 2 of it into Y2 if Y2>Ymax then put Ymax into Y2 set the loc of target to X1,Y2 end if if Y2